home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netusr.arc / TESTUSER.PAS < prev   
Pascal/Delphi Source File  |  1990-06-21  |  620b  |  25 lines
  1. { Demonstration program for NETUSERS unit }
  2.  
  3. program TestGetUserInfo;
  4.  
  5. uses Crt, NetUsers;
  6.  
  7. var
  8.     GroupName : string[47];
  9.     Finished  : boolean;
  10.  
  11. begin
  12.   Finished := false;
  13.   clrscr;
  14.   repeat
  15.     writeln;
  16.     write ('Enter group name, or ''QUIT'' when done: ');
  17.     readln(GroupName);
  18.     if (GroupName = 'quit') or (GroupName = 'QUIT') then
  19.       Finished := true
  20.     else if CurrentUserIsMemberOf(GroupName) then
  21.            writeln ('User ', GetUserName, ' is a member of ', GroupName)
  22.          else writeln('User ', GetUserName, ' is *not* a member of ', GroupName)
  23.   until Finished
  24. end.
  25.